00200	C ALL POSSIBLE COMBINATIONS OF ALL-INTERVAL 12
00300	C TONE ROWS.
00400	
00500		DIMENSION INTV(12,11), NOTE(12,11), LAST(12) 
00600	        DIMENSION ITRACK(11), ICOLO(12), ITMX(150,11)
00700		IT=0
00750		TYPE 50
00775	50	FORMAT (' TYPE 2 NUMBERS'/)
00800		ACCEPT 500, IPGNO, IPGMX
00900		IF(IPGNO .GT. 1) GO TO 11
01000		DO 2 I=1,11
01100		INTV(1,I)=1
01200	2 	NOTE(1,I)=1
01300		LAST(1)=0
01400		IROW=1
01500	3	IF(IROW .EQ. 12) GO TO 9
01600		ICOLO(IROW)=0
01700	4	ICOL=ICOLO(IROW) + 1
01800		IF(ICOL .EQ. 12) GO TO 8
01900		ICOLO(IROW)=ICOL
02000		IV=INTV(IROW,ICOL)
02100		IF(IV .LT. 0) GO TO 4
02200		IV=MOD(IV+LAST(IROW),12)
02300		DO 5 I=1,11
02400		IF(IV .EQ. NOTE(IROW,I)) GO TO 6
02500	5	CONTINUE
02600		GO TO 4
02700	6	DO 7 J=1,11
02800		NOTE(IROW+1,J)= NOTE(IROW,J)
02900	7	INTV(IROW+1,J)= INTV(IROW,J)
03000	 	NOTE(IROW+1,I)= -NOTE(IROW,I)
03100		LAST(IROW+1)  = NOTE(IROW,I)
03200		INTV(IROW+1,ICOL)=  -INTV(IROW,ICOL)
03300		ITRACK(IROW)=INTV(IROW,ICOL)
03400		IROW=IROW+1
03500		GO TO 3
03600	8	IROW=IROW-1
03700		IF(IROW .GT. 0) GO TO 4
03800		IF(IT .EQ. 0) GO TO 100
03900		TYPE 501,IPGNO,((ITMX(I1,J1),J1=1,11),I1=1,IT) 
04000	100	TYPE 504 
04200	501   	FORMAT(2X, 11I3, 5X, 11I3, 5X, 11I3)                   
04400	500	FORMAT(2I)
04450	503	FORMAT(24I3)
04475	504	FORMAT(' 1'//'   ')
04500	9	IT=IT+1
04600		DO 10 I1=1,11
04700	10	ITMX(IT,I1)=ITRACK(11)
04800		IF(IT .LT. 150) GO TO 8
04900	        TYPE  501,IPGNO,((ITMX(I1,J1),J1=1,11),I1=1,IT) 
05000		IPGNO=IPGNO + 1
05100		IT=0
05200		IF( IPGNO .LE. IPGMX) GO TO 8
05300		TYPE 500,IPGNO,IPGMX
05400		TYPE 503,IROW,LAST,NOTE,INTV,ICOLO
05500		GO TO 100
05896	11	ACCEPT 503,IROW,LAST,NOTE,INTV,ICOLO
05898	
05900		GO TO 8
06000		END